#----- NETTOYAGE DU TEXTE--------->
sub nettoyerTexte
{
	my $texte=shift;
	
	$texte =~ s/&lt;/</g;
    $texte =~ s/&gt;/>/g;
    $texte =~ s/<a href[^>]+>//g;
    $texte =~ s/<img[^>]+>//g;
    $texte =~ s/<[^>]+>//g;
    $texte =~ s/<\/a>//g;
    $texte =~ s/&#38;#39;/'/g;
    $texte =~ s/&#39;/\'/g;
    $texte =~ s/&#38;#34;/"/g;
    $texte =~ s/&#34;/"/g;
    $texte =~ s/<[^>]+>//g;
    $texte =~ s/&#233;/é/g;
    $texte =~ s/&#234;/ê/g;
    $texte =~ s/&amp;eacute;/é/g;
    $texte =~ s/&amp;egrave;/è/g;
    $texte =~ s/&amp;icirc;/\î/g;
    $texte =~ s/&amp;ocirc;/\ô/g;
    $texte =~ s/&amp;ccedil;/\ç/g;
    $texte =~ s/&amp;agrave;/\à/g;
    $texte =~ s/<p>//g;
    $texte =~ s/<\/p>//g;
    $texte =~ s/&nbsp;/ /g;
    $texte =~ s/>  >>//g;
    $texte =~ s/  >  >>//g;
    $texte =~ s/&#38;/and/g;
    $texte =~ s/&#91;/(/g;
    $texte =~ s/&#93;/)/g;
    $texte =~ s/&#38;/&/g;
    $texte =~ s/<.*$//g;
	$texte =~ s/&amp;|&#38;/&/g;
	$texte =~ s/&amp;|&#38;/&/g;
	$texte =~ s/&apos;|&#39;/'/g;
	$texte =~ s/&nbsp;|&#160;/? /g;
	$texte =~ s/&shy;|&#173;/­/g;
	$texte =~ s/&quot;|&#34;/"/g;
	$texte =~ s/&laquo;|&#171;/"/g;
	$texte =~ s/&raquo;|&#187;/"/g;
	$texte =~ s/&lsaquo;|&#8249;/"/g;
	$texte =~ s/&rsaquo;|&#8250;/"/g;
	$texte =~ s/&ldquo;|&#8220;/"/g;
	$texte =~ s/&rdquo;|&#8221;/"/g;
	$texte =~ s/&bdquo;|&#8222;/"/g;
	$texte =~ s/&lsquo;|&#8216;/'/g;
	$texte =~ s/&bdquo;|&#8222;/"/g;
	$texte =~ s/&rsquo;|&#8217;/'/g;
	$texte =~ s/&sbquo;|&#8218;/'/g;
	$texte =~ s/&hellip;|&#8230;/.../g;
	$texte =~ s/!|&#33;/!/g;
	$texte =~ s/&iexcl;|&#161;/¡/g;
	$texte =~ s/\?|&#63;/\?/g;
	$texte =~ s/\(|&#40;/\(/g;
	$texte =~ s/\)|&#41;/\)/g;
	$texte =~ s/\[|&#91;/\[/g;
	$texte =~ s/]|&#93;/]/g;
	$texte =~ s/{|&#123;/{/g;
    $texte =~ s/}|&#125;/}/g;
	$texte =~ s/&uml;|&#168;/¨/g;
	$texte =~ s/&acute;|&#180;/´/g;
	$texte =~ s/\^|&#94;/\^/g;
	$texte =~ s/&circ;|&#710;/ˆ/g;
	$texte =~ s/~|&#126;/~/g;
	$texte =~ s/#|&#35;/#/g;
	$texte =~ s/\*|&#42;/\*/g;
	$texte =~ s/,|&#44;/,/g;
	$texte =~ s/\.|&#46;/\./g;
	$texte =~ s/:|&#58;/:/g;
	$texte =~ s/;|&#59;/;/g;
	$texte =~ s/&middot;|&#183;/·/g;
	$texte =~ s/&bull;|&#8226;/•/g;
	$texte =~ s/&macr;|&#175;/¯/g;
	$texte =~ s/-|&#45;/-/g;
	$texte =~ s/&ndash;|&#8211;/–/g;
	$texte =~ s/&mdash;|&#8212;/—/g;
	$texte =~ s/_|&#95;/_/g;
	$texte =~ s/\||&#124;/\|/g;
	$texte =~ s/&brvbar;|&#166;/¦/g;
	$texte =~ s/&dagger;|&#8224;/†/g;
	$texte =~ s/&Dagger;|&#8225;/‡/g;
	$texte =~ s/&Dagger;|&#8225;/‡/g;
	$texte =~ s/&sect;|&#167;/§/g;
	$texte =~ s/&para;|&#182;/¶/g;
	$texte =~ s/&copy;|&#169;/©/g;
	$texte =~ s/&reg;|&#174;/®/g;
	$texte =~ s/&trade;|&#8482;/™/g;
	$texte =~ s/@|&#64;/@/g;
	$texte =~ s/\/|&#47;/\//g;
	$texte =~ s/\\|&#92;/\\/g;
	$texte =~ s/&larr;|&#8592;//g;
	$texte =~ s/&uarr;|&#8593;//g;
	$texte =~ s/&rarr;|&#8594;//g;
	$texte =~ s/&darr;|&#8595;//g;
	$texte =~ s/&harr;|&#8596;//g;
	$texte =~ s/&aacute;|&#225;/á/g;
	$texte =~ s/&Aacute;|&#193;/Á/g;
	$texte =~ s/&acirc;|&#226;/â/g;
	$texte =~ s/&Acirc;|&#194;/Â/g;
	$texte =~ s/&agrave;|&#224;/à/g;
	$texte =~ s/&Agrave;|&#192;/À/g;
	$texte =~ s/&aring;|&#229;/å/g;
	$texte =~ s/&Aring;|&#197;/Å/g;
	$texte =~ s/&atilde;|&#227;/ã/g;
	$texte =~ s/&Atilde;|&#195;/Ã/g;
	$texte =~ s/&auml;|&#228;/ä/g;
	$texte =~ s/&Auml;|&#196;/Ä/g;
	$texte =~ s/&aelig;|&#230;/æ/g;
	$texte =~ s/&AElig;|&#198;/Æ/g;
	$texte =~ s/&ccedil;|&#231;/ç/g;
	$texte =~ s/&Ccedil;|&#199;/Ç/g;
	$texte =~ s/&eacute;|&#233;/é/g;
	$texte =~ s/&Eacute;|&#201;/É/g;
	$texte =~ s/&ecirc;|&#234;/ê/g;
	$texte =~ s/&Ecirc;|&#202;/Ê/g;
	$texte =~ s/&egrave;|&#232;/è/g;
	$texte =~ s/&Egrave;|&#200;/È/g;
	$texte =~ s/&euml;|&#235;/ë/g;
	$texte =~ s/&Euml;|&#203;/Ë/g;
	$texte =~ s/&iacute;|&#237;/í/g;
	$texte =~ s/&Iacute;|&#205;/Í/g;
	$texte =~ s/&icirc;|&#238;/î/g;
	$texte =~ s/&Icirc;|&#206;/Î/g;
	$texte =~ s/&igrave;|&#236;/ì/g;
	$texte =~ s/&Igrave;|&#204;/Ì/g;
	$texte =~ s/&iuml;|&#239;/ï/g;
	$texte =~ s/&Iuml;|&#207;/Ï/g;
	$texte =~ s/&ntilde;|&#241;/ñ/g;
	$texte =~ s/&Ntilde;|&#209;/Ñ/g;
	$texte =~ s/&oacute;|&#243;/ó/g;
	$texte =~ s/&Oacute;|&#211;/Ó/g;
	$texte =~ s/&ocirc;|&#244;/ô/g;
	$texte =~ s/&Ocirc;|&#212;/Ô/g;
	$texte =~ s/&ograve;|&#242;/ò/g;
	$texte =~ s/&Ograve;|&#210;/Ò/g;
	$texte =~ s/&oslash;|&#248;/ø/g;
	$texte =~ s/&Oslash;|&#216;/Ø/g;
	$texte =~ s/&otilde;|&#245;/õ/g;
	$texte =~ s/&Otilde;|&#213;/Õ/g;
	$texte =~ s/&ouml;|&#246;/ö/g;
	$texte =~ s/&Ouml;|&#214;/Ö/g;
	$texte =~ s/&oelig;|&#156;/œ/g;
	$texte =~ s/&OElig;|&#140;/Œ/g;
	$texte =~ s/&scaron;|&#353;/š/g;
	$texte =~ s/&Scaron;|&#352;/Š/g;
	$texte =~ s/&szlig;|&#223;/ß/g;
	$texte =~ s/&eth;|&#240;/ð/g;
	$texte =~ s/&ETH;|&#208;/Ð/g;
	$texte =~ s/&thorn;|&#254;/þ/g;
	$texte =~ s/&THORN;|&#222;/Þ/g;
	$texte =~ s/&uacute;|&#250;/ú/g;
	$texte =~ s/&Uacute;|&#218;/Ú/g;
	$texte =~ s/&ucirc;|&#251;/û/g;
	$texte =~ s/&Ucirc;|&#219;/Û/g;
	$texte =~ s/&ugrave;|&#249;/ù/g;
	$texte =~ s/&Ugrave;|&#217;/Ù/g;
	$texte =~ s/&uuml;|&#252;/ü/g;
	$texte =~ s/&Uuml;|&#220;/Ü/g;
	$texte =~ s/&yacute;|&#253;/ý/g;
	$texte =~ s/&Yacute;|&#221;/Ý/g;
	$texte =~ s/&yuml;|&#255;/ÿ/g;
	$texte =~ s/&Yuml;|&#376;/Ÿ/g;
	$texte =~ s/&curren;|&#164;/¤/g;
	$texte =~ s/&euro;|&#128;/€/g;
	$texte =~ s/\$|&#36;/\$/g;
	$texte =~ s/&cent;|&#162;/¢/g;
	$texte =~ s/&pound;|&#163;/£/g;
	$texte =~ s/&yen;|&#165;/¥/g;
	$texte =~ s/&fnof;|&#402;/ƒ/g;
	$texte =~ s/&alpha;|&#945;/α/g;
	$texte =~ s/&Alpha;|&#913;/Α/g;
	$texte =~ s/&beta;|&#946;/ß/g;
	$texte =~ s/&Beta;|&#914;/Β/g;
	$texte =~ s/&gamma;|&#947;/γ/g;
	$texte =~ s/&Gamma;|&#915;/G/g;
	$texte =~ s/&delta;|&#948;/δ/g;
	$texte =~ s/&Delta;|&#916;/Δ/g;
	$texte =~ s/&epsilon;|&#949;/ε/g;
	$texte =~ s/&Epsilon;|&#917;/Ε/g;
	$texte =~ s/&zeta;|&#950;/ζ/g;
	$texte =~ s/&Zeta;|&#918;/Ζ/g;
	$texte =~ s/&eta;|&#951;/η/g;
	$texte =~ s/&Eta;|&#919;/Η/g;
	$texte =~ s/&theta;|&#952;/θ/g;
	$texte =~ s/&Theta;|&#920;/T/g;
	$texte =~ s/&iota;|&#953;/ι/g;
	$texte =~ s/&Iota;|&#921;/Ι/g;
	$texte =~ s/&kappa;|&#954;/κ/g;
	$texte =~ s/&Kappa;|&#922;/Κ/g;
	$texte =~ s/&lambda;|&#955;/λ/g;
	$texte =~ s/&Lambda;|&#923;/Λ/g;
	$texte =~ s/&mu;|&#956;/µ/g;
	$texte =~ s/&Mu;|&#924;/Μ/g;
	$texte =~ s/&nu;|&#957;/ν/g;
	$texte =~ s/&Nu;|&#925;/Ν/g;
	$texte =~ s/&xi;|&#958;/ξ/g;
	$texte =~ s/&Xi;|&#926;/Ξ/g;
	$texte =~ s/&omicron;|&#959;/ο/g;
	$texte =~ s/&Omicron;|&#927;/Ο/g;
	$texte =~ s/&pi;|&#960;/π/g;
	$texte =~ s/&Pi;|&#928;/Π/g;
	$texte =~ s/&rho;|&#961;/ρ/g;
	$texte =~ s/&Rho;|&#929;/Ρ/g;
	$texte =~ s/&sigma;|&#963;/σ/g;
	$texte =~ s/&sigmaf;|&#962;/ς/g;
	$texte =~ s/&Sigma;|&#931;/Σ/g;
	$texte =~ s/&tau;|&#964;/τ/g;
	$texte =~ s/&Tau;|&#932;/Τ/g;
	$texte =~ s/&upsilon;|&#965;/υ/g;
	$texte =~ s/&Upsilon;|&#933;/Υ/g;
	$texte =~ s/&phi;|&#966;/φ/g;
	$texte =~ s/&Phi;|&#934;/F/g;
	$texte =~ s/&chi;|&#967;/χ/g;
	$texte =~ s/&Chi;|&#935;/Χ/g;
	$texte =~ s/&psi;|&#968;/ψ/g;
	$texte =~ s/&Psi;|&#936;/Ψ/g;
	$texte =~ s/&omega;|&#969;/ω/g;
	$texte =~ s/&Omega;|&#937;/O/g;
    $texte =~ s/&thetasym;|&#977;/ϑ/g;
    $texte =~ s/&upsih;|&#978;/ϒ/g;
    $texte =~ s/&piv;|&#982;/ϖ/g;
	$texte =~ s/&deg;|&#176;/°/g;
	$texte =~ s/&micro;|&#181;/µ/g;
	$texte =~ s/&lt;|&#60;/</g;
	$texte =~ s/&gt;|&#62;/>/g;
	$texte =~ s/&le;|&#8804;/=/g;
	$texte =~ s/&ge;|&#8805;/=/g;
	$texte =~ s/=|&#61;/=/g;
	$texte =~ s/&asymp;|&#8776;/˜/g;
	$texte =~ s/&ne;|&#8800;/?/g;
	$texte =~ s/&equiv;|&#8801;/=/g;
	$texte =~ s/&plusmn;|&#177;/±/g;
	$texte =~ s/&minus;|&#8722;/-/g;
	$texte =~ s/\+|&#43;/\+/g;
	$texte =~ s/&times;|&#215;/×/g;
	$texte =~ s/&divide;|&#247;/÷/g;
    $texte =~ s/%|&#37;/%/g;
	$texte =~ s/&permil;|&#8240;/‰/g;
	$texte =~ s/&frac14;|&#188;/¼/g;
	$texte =~ s/&frac12;|&#188;/½/g;
	$texte =~ s/&frac34;|&#188;/¾/g;
	$texte =~ s/&sup1;|&#185;/¹/g;
	$texte =~ s/&sup2;|&#178;/²/g;
	$texte =~ s/&sup3;|&#179;/³/g;
	$texte =~ s/&ordm;|&#186;/º/g;
	$texte =~ s/&ordf;|&#170;/ª/g;
	$texte =~ s/&fnof;|&#402;/ƒ/g;
	$texte =~ s/&prime;|&#8242;/'/g;
	$texte =~ s/&Prime;|&#8243;/"/g;
	$texte =~ s/&part;|&#8706;/∂/g;
	$texte =~ s/&prod;|&#8719;/∏/g;
	$texte =~ s/&sum;|&#8721;/∑/g;
	$texte =~ s/&radic;|&#8730;/v/g;
	$texte =~ s/&infin;|&#8734;/8/g;
	$texte =~ s/&not;|&#172;/¬/g;
	$texte =~ s/&cap;|&#8745;/n/g;
	$texte =~ s/&int;|&#8747;/∫/g;
	$texte =~ s/&/et/g;
	$texte =~ s/<.+?>//g;
    return $texte;
}